Reverse Code Engineering RCE CD +sandman 2000/ReverseCodeEngineeringRceCdsandman2000.iso/RCE/Library/Manuels & Misc/Assembly/AOA.ZIP/CH01/PACKDATA/PACKEDU.DFM/PACKEDU.txt

Text File | 1995-11-05 | 4.4 KB | 209 lines

object PackedData: TPackedData
  Left = 291
  Top = 103
  BorderStyle = bsDialog
  Caption = 'Packed Data'
  ClientHeight = 223
  ClientWidth = 463
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 16
  object BoundingBox: TGroupBox
    Left = 0
    Top = 0
    Width = 457
    Height = 217
    Caption = 'Packed Data (Date Example from Chapter One)'
    TabOrder = 0
    OnClick = BoundingBoxClick
    object MonthLbl: TLabel
      Left = 168
      Top = 32
      Width = 40
      Height = 16
      Caption = 'Month'
    end
    object DayLbl: TLabel
      Left = 256
      Top = 32
      Width = 26
      Height = 16
      Caption = 'Day'
    end
    object YearLbl: TLabel
      Left = 352
      Top = 32
      Width = 31
      Height = 16
      Caption = 'Year'
    end
    object DataPackLbl: TLabel
      Left = 8
      Top = 80
      Width = 89
      Height = 16
      Caption = 'Data To Pack:'
    end
    object DecimalLbl: TLabel
      Left = 104
      Top = 56
      Width = 57
      Height = 16
      Caption = 'Decimal:'
    end
    object BinaryLbl: TLabel
      Left = 112
      Top = 96
      Width = 47
      Height = 16
      Caption = 'Binary:'
    end
    object PackResLbl: TLabel
      Left = 16
      Top = 144
      Width = 97
      Height = 16
      Caption = 'Packed Result:'
    end
    object MonthBin: TEdit
      Left = 168
      Top = 89
      Width = 49
      Height = 24
      Hint = 'Enter a binary value between 0001 and 1100 here.'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = '0001'
      OnKeyUp = MonthBinKeyUp
    end
    object ExitBtn: TButton
      Left = 384
      Top = 184
      Width = 65
      Height = 25
      Caption = 'Quit'
      TabOrder = 1
      OnClick = ExitBtnClick
    end
    object AboutBtn: TButton
      Left = 8
      Top = 184
      Width = 65
      Height = 25
      Caption = 'About'
      TabOrder = 2
      OnClick = AboutBtnClick
    end
    object DayBin: TEdit
      Left = 248
      Top = 89
      Width = 57
      Height = 24
      Hint = 'Enter a binary value between 0 and 31 here.'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      MaxLength = 6
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = '0 0001'
      OnKeyUp = DayBinKeyUp
    end
    object YearBin: TEdit
      Left = 344
      Top = 89
      Width = 73
      Height = 24
      Hint = 'Enter a binary value between 0 and 99 here.'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      MaxLength = 8
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      Text = '110 0000'
      OnKeyUp = YearBinKeyUp
    end
    object MonthDec: TEdit
      Left = 168
      Top = 56
      Width = 49
      Height = 24
      Hint = 'Enter a decimal number between 1 & 12 here.'
      MaxLength = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Text = '1'
      OnKeyUp = MonthDecKeyUp
    end
    object DayDec: TEdit
      Left = 248
      Top = 56
      Width = 57
      Height = 24
      Hint = 'Enter a decimal number between 1 & 31 here.'
      MaxLength = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Text = '1'
      OnKeyUp = DayDecKeyUp
    end
    object YearDec: TEdit
      Left = 344
      Top = 56
      Width = 73
      Height = 24
      Hint = 'Enter a decimal number between 0 and 99 here.'
      MaxLength = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      Text = '96'
      OnKeyUp = YearDecKeyUp
    end
    object Panel1: TPanel
      Left = 160
      Top = 128
      Width = 265
      Height = 49
      TabOrder = 8
      object BinResult: TLabel
        Left = 16
        Top = 17
        Width = 137
        Height = 16
        Caption = 'BinResult'
        Color = clWhite
        ParentColor = False
      end
      object HexResult: TLabel
        Left = 189
        Top = 17
        Width = 68
        Height = 16
        Caption = 'HexResult'
        Color = clWhite
        ParentColor = False
      end
    end
  end
end